Come da oggetto come posso fare?
Ho utilizzato questo codice:
' Apro la connessione
conn1.Open()
' Imposto la Stringa SQL (si potrebbe assegnare una tabella o una query)
Dim dbComm As OleDbCommand = New OleDbCommand("SELECT connessioni.id, connessioni.data, utenti.cognome, utenti.nome, connessioni.inizio, connessioni.durata, connessioni.tot_euro FROM utenti, connessioni WHERE connessioni.id_utente=utenti.id AND connessioni.data='" & appu.Text & "'", conn1)
' Ovviamente comando di tipo testo (in questo caso)
dbComm.CommandType = CommandType.Text
' Assegno il comando al Data Adapter
dbApt.SelectCommand = dbComm
' ***********
ds1 = New DataSet
' ripulisco il dataset
ds1.Clear()
' popolo il dataset
dbApt.Fill(ds1, "connessioni")
'modifico i titoli delle colonne
ds1.Tables("connessioni").Columns("id").ColumnName = "COD."
ds1.Tables("connessioni").Columns("data").ColumnName = "DATA"
ds1.Tables("connessioni").Columns("cognome").ColumnName = "COGNOME"
ds1.Tables("connessioni").Columns("nome").ColumnName = "NOME"
ds1.Tables("connessioni").Columns("inizio").ColumnName = "INIZ. ORA"
ds1.Tables("connessioni").Columns("durata").ColumnName = "DURATA"
ds1.Tables("connessioni").Columns("tot_euro").ColumnName = "TOT. €"
'Assegno la sorgente al Datagrid
DataGrid1.DataSource = ds1
' Assegno la tabella da visualizzare
DataGrid1.DataMember = "connessioni"
DataGrid1.Enabled = True
' chiudo la connessione
conn1.Close()
Nella colonna ds1.Tables("connessioni").Columns("inizio").ColumnName = "INIZ. ORA" invece di scrivere un valore di tipo data come questo 1.43.22 mi scrive 30/12/189
....COME DEVO FARE?
|